home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EuroCD 3
/
EuroCD 3.iso
/
Utilities
/
Virus
/
Xtruder
/
Rexx
/
Examples
/
Xtruder_GetFile.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1998-06-24
|
283b
|
14 lines
/*
** 'GetFile' example
*/
Options Results
Address XTRUDER
GetFile TITLE '"Select a file..."' PATH '"S:"' FILE '"user-startup"'
IF RC = 5 THEN
RequestUser TEXT '"You forgot to select a file!"' RESPONSE '"Bugger!"'
ELSE
RequestUser TEXT RESULT RESPONSE '"That was the one!"'